Private Sub lst_Click()

    Dim  As Range
    Dim  As String
    Dim  As String
    Dim  As String

    Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))
     = .Find(What:=lst.Value).Offset(, -1).Value

     = ThisWorkbook.Path & "\Image\"
     =  & ".jpg"

    If Dir( & ) = "" Then  = "Default.jpg"

    With img
        .Picture = LoadPicture(Filename:= & )
        .PictureAlignment = fmPictureAlignmentCenter
        .PictureSizeMode = fmPictureSizeModeZoom
    End With

End Sub